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a oe ta he ke 
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mw 8 
**F ]LE®*1D**CHKHD2 

} 7 

CCCCCCCC HH HH KK KK HH HH DDDDDDDD $58636 F 
CCCCCCCC HH HH KK KK HH HH DDDDDDDD 3 
cc HK HH KK KK HH HH DD DD 2 22 ° 
cc HH HH KK KK HH HH DD DD 22 22 . 
cc HH HH KK KK HH HH DD DD 22 é 
cc HH HH KK KK HH HH ODD DD 22 2 
cc HHHHHHHHHA = KKKKKK HHHHHHHHHH DC DD 22 ; 
cc HHHHHHHHHH § KKKKKK HHHHHHHHHH DD DD 22 ° 
cc HH HH KK KK HH HH DD DD 22 : 
cc HH HH KK KK HH HH DD DD 22 ; 
cc HH HH KK KK HH HH DD OD 22 osen : 
cc HH HH KK KK HH HH DD 0D 22 join : 
CCCCCCCC HH HH KK KK HH HH DDDDDDDD 2222222222 aenal : 
CCCCCCCC HH HH KK KK HH HH DDDDDDDD 2222222222 eae : 
LL III! SSSSSSSS 3 
LL III11I SSSSSSSS 3 
LL II ss $ 
LL I] $s : 
LL II SS : 
LL II SS é 
LL I] SSSSSS $ 
LL II SSSSSS : 
LL II SS 3 
LL II SS : 
LL II SS é 
LL II $s : 
LLLLLLLLLL III] SSSSSSSS 8 
LLLLLLLLLL HII SSSSSSSS : 
: 


< 
4 
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16-Sep-1984 00:00:48 VAX-11 Bliss-32 V4.0-742 1 
14-Sep-1984 12:30:11 DISKSVMSMASTER:CF11X.SRCJCHKHD2.B32; fag Sa, 
MODULE CHKHD2 ( 


BEGIN 


‘ 

i e@eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeedeeeeeeeeeeeeeeeeteeeeeeeeeeeeenees 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 

's DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


!* THIS SOFTWARE +4 FURNISHED UNDER A LICENSE AND MAY BE USED AND on tee 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i on THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
t 
® 
t 
® 
*® 
® 
® 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
® 
® 
*® 
® 
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$ 

; 4 

5 5 1 

3 6 1 

; 7 1 

3 8 1 

; a 1 

; 1 1 

fd : 

; ig 1 

3 14 1 

; 15 1 

3 16 1 

3 17 1 

§ 18 1 

er: : | 
$ 21 1 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

$ 22 1 !'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
; $i : he CORPORATION. 

° :* 

3 25 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

; $$ ! in SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

3 '® 
; '® | 
: $8 : Lee RRR ARATE ATTA ATTRA | 
; 3 00 1 

a ae 00 1 !4¢ | 
; 0032 1! 
3 33 00 1 ! FACILITY: F11ACP Structure Level 2 

; 34 00 1! 

3 35 00 1 | ABSTRACT: 

; | 636 00 1: , 

; oY 00 1! This routine verifies that the block given it is in fact a 

3 38 00 1! file header. If file number gt file seqence number are also 

3 4 : } supplied, they are checked as well | 
3 41 0041 1 ! ENVIRONMENT: 

3 642 00: é 1! 

3; «643 00 1! STARLET operating system, including privileged system services 
3; 644 0044 1! and internal exec routines. 
; 645 0045 1! 

: 66 0046 1 !-- 

3; 67 0047 1! 

s 68 0048 1! ; 

3 3 ied ! AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 16:11 | 
, oY 0051 1 ' MODIFIED BY: 
3 52 0036 1: 
3 53 0055 1! v03-005 ACG0408 Andrew C. Goldstein gto feroi90h 11:31 

; 2 0038 Remove external reference to USER_STATU 
J 56 056 1! v03-004 CDS0003 Christian D. Saether 18-Jan-1984 

. oF 0057 1! 


ERR_STATUS macro declares USER_STATUS as an external. 


Pe Oe Se Oe Oe Oe OH Oe Oe SH Oe Se BH Os Oe OH Oe Oe BH Oe Oe OHO Oe Oe Os Oe SH Oe ee 


at tk at et tt a 8 = 2 2 3 2 a 


1-50 $ep-1984 00:00:45 
12-808 = 1 he 99:9 :11 
Explicitly declare it to avoid truncation errors. 


v03-003 goscees Christian D. Saether 17-Jan-1984 
oops. Cannot use L_NORM Linkage because this module 
meee pulled out into SYSINIT and MOUNTSHR images, at least. 
emove test for EXTFID flag in CURRENT.VCB (we always use 
extended file ID format). 


v03-002 CDS0001 Christian D. Saether 29-Dec-1983 
Use L_NORM Linkage ond BIND_COMMON macro. 


v03-001 ACG0325 Andrew C. Goldstein, 33-Apr-1983 17:11 
Change use of header area length symbol 


v02-003 ACG0156 Andrew C. Goldstein, 12-Mar-1980 15:21 
Fix header invalidation bug 


B0102 ACG0146 Andrew C. Goldstein, ce-teea 1700 21:40 
Change file sequence number check to no such file 


Bo10t acg0003 Andrew C. Goldstein, 10-Nov-1978 19:29 
Gd multi-volume support 


B0100 ACG00001 Andrew C. Gol $s tein, 10-Oct-1978 19:59 
Previous revision history moved to (F11B.SRCJF11B.REV 


LIBRARY "SYSS$LIBRARY:LIB. L32"; 
REQUIRE ‘SRCS$:FCPDEF ‘B32 3 


VAX=11 Bliss-32 V4.0 


DISKSVMSMASTER: SCF 1iX.SRCICHKHD2.B32; 4°79 
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1b-5e 1984 00:00:45 VAX=11 Bliss-32_ V4.0-742 P 

1 30p71 38 99:9 711 DISKSVMSMASTER:CF1iX.SRCJCHKHD2.B32;1 > 23 
GLOBAL ROUTINE CHECK_HEADER2 (HEADER, FILE_I1D, HEADER_STATUS) = 


FUNCTIONAL DESCRIPTION: 


This routine verifies that the block given it is in fact a 
file header. If file number and/or file seqence number are also 
supplied, they are checked as well. 


! CALLING SEQUENCE: 
CHECK_HEADER (ARG1, ARG2, ARG3) 


INPUT PARAMETERS: 
ARG1: address of heade 
ARG2: address of file 


IMPLICIT INPUTS: 
NONE 


r image 
ID ° 


OUTPUT PARAMETERS: 
ARG3: (optional) address to store status return code 


IMPLICIT OUTPUTS: 
USER_STATUS contains code if not valid 


ROUTINE VALUE: 
0 if garbage 


1 if Selle and correct file header 


MACRO 
EXIT (STATUS CODE, HEADER STATE) = 
STATUS = HEADER STATE: 
IF ACTUALCOUNT GEQU 
THEN IF HEADER, STATUSEO] 
THEN HEADER-STATUSLO] = STATUS_CODE; 
RETURN . STATUS; 


. 
: | 
| 
| 


STATUS, ' return value of routine 


06 

07 2 if deleted file header 

oS 4 if valid header but wrong sequence number 

10 SIDE EFFECTS: 

1 NONE 

i 

14 

15 

16 

17 MAP 

18 HEADER : REF BBLOCK, ! file header arg 
19 FILE_ID : REF BBLOCK, ! file ID arg 

3 HEADER_STATUS : REF VECTOR C,WORD]; ! status output arg 
4 


BBBBSBEIzsS 
chadadadadadadadadadad babadadadadabatatad Dabababaiaciwaabababababaiadabababababababababababababababababababababad 
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wn O0@Onou 


LOCAL 


SEEDS Seer S BES RNON TS Sa wane HS SEPP OR SSE LE SLOL LES 


RIPRIMIPIPIPOIMOFPOPPYPYPININPININPIPIPINIDS -9 9 Pt? PP? OP? OP? OP OP 
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ao 
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ee ee ee ee Oe LLL) 


. 9 
16-Sep-1984 00:00:45 VAX-11 Blis Pp 4) 
1o-800} 384 99:9 :11 DISKSVMSMAS ICHKHD2.B32:1. (2). 
! 


2 
sx 


32 V4.0-742 
R:CF11X.SRC 


—n 
me 


MAP_AREA : REF BBLOCK; pointer to header map area 
EXTERNAL ROUTINE 
CHECKSUM; ! compute file header checksum 


| 
} First check the structure level. 
! 
| 


IF .HEADERCFH2$B_STRUCLEV] NEQ 2 
THEN EXIT (SS$_FILESTRUCT, 0); 


' Check the area offsets and the retrieval pointer use counts for 
consistency. 


FSE FFSET (FH2$L_HIGH 
OR .HEADER(FH2SB_MPOFFSET] LSSU .HEADERCFH2$B_IDOFFSET) 
OR .HEADERLFH2SB_ACOFFSET) LSSU .HEADERLFH2SB_MPOFFSETJ 
OR .HEADERLFH2SB_RSOFFSET) LSSU .HEADERLFH2SB _ACOFFSETJ 

»HEADERLFH2$B8_MAP_INUSE) GTRU .HEADERCFH2SB_ACOFF SET 


OR NU 
THEN EXIT (SS$_BADFICEHDR, 0) 


: LSSU SBYTEO 


J] - .HEADERCFH2$B_MPOF FSET) 


At this petet. we have verified that the block at least once was a 
valid file header. 


| 
WATER) /2 
' 
i 
i 
Look at the file number in the header. If zero, this is a 
i 


deleted header. 


tal * al “al * ol “ol * ak ah al alval ab al ahs) Ah sl ee et ee et oe ee ee ee ee Yew | 


SRS ES SSSA RAN SSSA FOR IS SSVSVT UNS SSE SEES LSESSSSES 


IF .HEADERCFH2$W_FID_NUM) EQL 0 

AND’ .HEADERCFH2$6_F1B_NMX) QL 0 
THEN EXIT (SS$_NOSUCHFILE, 2); 
Now compute the header checksum. 
IF NOT CHECKSUM (. HEADER) 

THEN EXIT (SS$_BADCHKSUM, 2); 


: Check file number and file sequence number. 


a hd ot 
10D 09 OS G9 CD OD 09. 09 INI NI SI SIN SSSI PPP AAA AAA MII 


0909 08 SINISE NOOO 


a a ai aa a a ed a a 8 i“ td ed = = = a 4 ss ss 4 
em ee a a a a ad a td ed ak a ed = a a = a a 2 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Ge Ge Se He Se Se Fe Se Se Se Se Se Se Fe Se Ge Se Se Se Se FH Se Ge Se SH Se Se Se Se Ge Se Se Se Se Se Se ee 


89 IF .HEADERCFH2$W_FID_NUM) NEQ oF ILE.IDEE ID Sy Wun 

190 OR .HEADERLFH2SB~FID~NMX NgQ ~FILE-IOCF 1D$B-NMX 

19] THEN EXIT (SS$_FILENOMCHK, 2); 

198 IF .HEADERCFH2$W_FID SEQ) NEQ .FILE_IDCFIDSW_SEQ) | 
138 THEN EXIT (SS$_NOSUCAFILE, 4); 
1 ! H is ok. 

138 eader is o 

198 

+44 3 RETURN 1; 
$1 0 END; ! end of routine CHECK_HEADER 
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Gi 
1B-Se0-1984 0:09:45 vA re a ee ow 


0-74 
1X.SR 


x 
s 
- TITLE ee 

IDENT \v04-000\ 
~-EXTRN CHECKSUM 
-PSECT SCODES,NOWRT,2 


rs 
. 
| : 
000¢ 000 .ENTRY CHECK _HEADER2, Save R2,R3 : 1078 | ; 
50 06 =A 06 $09 MOVL ri R, 3 1144 3 
02 07 ad 91 00006 CMPB 3s 7(RO), #2 : : 
13 (13 0 OA BEQL 1$ : : 
52 D4 C CLRL STATUS + 1145 : 
03 g¢ 91 000E CMPB (AP), #3 : ; 
F 1 0001 BLSSU5$ : ; 
7B 0 C €9 90013 BLBC §§ @HEADER_STATUS, 5$ : F 
oc «BC 08C¢ f 80 90017 mov #2240, GHEADER.STATUS : : 
50 04 ac 00 0001f 1$: MOVL HEADER, RO + 1151 ; 
26 60 91 00023 CMPB =Ss« (RO), #38 : ; 
27 «1F 00 6 BLSSU : : 
60 01 Ao 1 00 : CHP 1(RO), (RO) : 1152 : 
01 Ao 02 Ad 1 090 7 CHP (RO), 1¢RO) + 1153 : 
02 ad 03 AQ 91 00035 P (RO), 2¢RO) + 1154 : 
13 1F OOO3A BLSSU-2$ : : 
51 02 Ad 9A 0003C MOVZBL 2(RO), R1 : 1155 : 
53 01 AQ 9A 90040 MOVZBL 1(RO), R3 : : 
51 53 C2 00044 SUBL2 R3, R ; : 
51 3A =A 08 09 FD 90047 cHPZV #0, #8, 58(RO), RI : : 
52 D4 0004 2s: CLRL STATUS : 1156 : 
03 6C 91 00051 CMPB (AP), #3 : : 
78 1F 00054 BLSSU : ; 
% Oc BC E9 90036 BLBC § @HEADER_STATUS, 11$ : : 
Oc BC 0810 af 80 90034 movl He 64, SHEADER_STATUS : ; 
50 04 AC DO 00062 38: MOVL HEADER, RO + 1165 : 
08 ad B5 00066 TSTW  8(RO) ; : 
OA 12 00069 BNEQ 4$ : : 
OD AO 95 0006B TSTB —s-_: 13 (RO) > 1166 : 
05 12 00 $ BNEQ 4$ ; : 
52 9@ D 9 MOVL e, STATUS + 1167 ; 
1 7 BRB 9 ; : 
04 AC DD 00075 4$: PUSHL HEADER + 1172 : 
00006 CF gi FB 0 18 CALLS #i, CHECKSUM : : 
52 02 pO 9 MOVL #2. STATUS : 1173 ; 
0 $6 1 CMPB sé), #3 ; : 
1F BLSSU _12$ ; : 
4E oc C €9 LBC aHEADER STATUS, 12$ ; : 
oc «BC 0808 af 80 f “ mov #2056, GHEADER. STATUS ; : 
50 4 AC 7D 6$: MOVQ HEADER, RO : 1178 : 
61 8 Ag 81 98 CMPW (RO), (R1) ; : 
0 2 0009C BNEQ % $ : 
} 
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: COMMAND QUALIFIERS 


f 

CHK 16-Sep-19 VAX-11 Bliss-32 V4.0-742 6 

voenb60 WexSeb=1984 19:50:17 DISKSVMGMASTERSCE TIX. SReICHKHD2.832:1°%° (26, 
05 Al 0D Ad 91 0009 CMPB wl 5(R1) 3 1179 3 
14 1 A BEQL : ; 
53 62 p A5 7$ MOVL STATUS ; 1180 3 
0 gC 1 CMPB (ay, #3 : | ; 
oD Tf AB BLSSU : $ 
29 0 Cc €9 AD BLBC a4 SapeR STATUS, 12$ : : 
oc BC 088 : "9 pe) novw 35°". SHEADER_STATUS : : 
51 04 AC D0 0B9 8$: MOVL ioe Rt + 1182 ; 
0 08 AC D BD MOVL FILE IO, : ; 
02 Ad A Al B C1 CMPW 3=s«10(RT), a'Ro : : 
16 1 8 BEQL : : 
52 04 D C MOVL #4, STATUS : 1183 ; 
0 6¢ 91 O00CB 9$: CMPB (AP), #3 : ; 
A iF cE 10$: BLSSU 1 : ; 
06 o¢ C £9 00000 11$: BLBC rose STATUS, 12$ : : 
0c aC 091 F 80 0004 MOVW SHEADER. STATUS : : 
0 2 DO OOODA 12$: MOVL AUS, : ; 
04 9600 RET : : 
50 01 oO 44 13$: MOVL » RO 3; 1188 3 
04 O00E RET : 1190 : 
; Routine Size: 226 bytes, Routine Base: S$CODE$ + 0000 3 
: 02 1191 1 ; 
; 2 1136 1 END 3 
; 204 1193 0 ELUDOM ; 
; PSECT SUMMARY : 
; Name Bytes Attributes ; 
: SCODES 226 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
: Library Statistics | ; 
Fe NESS. Hot leasing? i > (So. - eee Symbols -------- Pages Processing ; 
5 File Total Loaded Percent Mapped Time | : 
; ~$255$D0UA28: CSYSLIBILIB.L32;1 18619 36 0 1000 00:02.0 | 3 
| : 
| ; 
be 
; 
; 

| 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CHKHD2/0BJ=0BJ$:CHKHD2 MSRC$: CHKHD2/UPDATE=(ENH$: CHKHD2) 


a 226 1 : 0 data bytes 
E Time 
FLepsed i ine Rin: ae 


——— 
ages 
feaotlekten” noah, we 


voe~b60 1$-se0-198 93:90:57 UESKSUmGMAS TERS CI Tix. sReICHKHDZ.B32;1 


ez 
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AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


-oe. 
V4.0 


AH-BT13A 


DIG 
VAX/VMS CON 


7 
I 


IGI 
ONF 


016 


